          next s/n  where
                         s = 0 fby s + x;
                         n = 0 fby n + 1;
                    end
